home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MENUBD.DIR / 00043_Script_BOUCLE_VOLUME < prev    next >
Text File  |  2002-07-23  |  2KB  |  74 lines
  1. -- boucles secondaires
  2. global validMBD, rollMessBD, fermeMenuBD, ouvreMenuBD, gmemNivson
  3. global  gNbStamps, gfirstStampTrackNo, gpiste_Picto_NIVSON_0,gze_possibleNivson, gpisteNote_Silence
  4. --------------------------------------------
  5. on exitFrame
  6.   if fermeMenuBD=1 then
  7.     fermerMenu
  8.   else
  9.     repeat with i=gfirstStampTrackNo to gfirstStampTrackNo + gNbStamps - 1
  10.       zeNoItem = i - gfirstStampTrackNo + 1
  11.       if rollOver(i) and validMBD[zeNoItem] =1 then
  12.         member("item").text = string(i)
  13.         rollMessBD = member("menuBDMsg").line[zeNoItem]
  14.         
  15.       end if
  16.     end repeat
  17.    u = the mouseH
  18.     v = the mouseV
  19.     if v> 34 and v < 70 then
  20.       
  21.       case(abs(u- 202)< 5) of
  22.         1:
  23.           gze_possibleNivson = 0
  24.         0:
  25.           case(abs(u- 223)< 6) of
  26.             1:
  27.               gze_possibleNivson = 1
  28.             0:
  29.               case(abs(u- 248)< 7) of
  30.                 1:
  31.                   gze_possibleNivson = 2
  32.                 0:  
  33.                   case(abs(u- 273)< 10) of
  34.                     1:
  35.                       gze_possibleNivson = 3
  36.                     0: 
  37.                       case(abs(u- 304)< 13) of
  38.                         1:
  39.                           gze_possibleNivson = 4
  40.                         0:   
  41.                           nothing
  42.                       end case
  43.                   end case
  44.               end case
  45.           end case
  46.       end case
  47.      if gze_possibleNivson = VOID then gze_possibleNivson = 0
  48.       gmemNivson = gze_possibleNivson
  49.       --      case( gze_possibleNivson) of 
  50.       --        0:
  51.       --          sprite(gpisteNote_Silence).member = "NOTE_0"
  52.       --        otherwise:
  53.       --          sprite(gpisteNote_Silence).member = "NOTE"
  54.       --      end case
  55.       
  56.       updateStage
  57.     end if
  58.   end if
  59. end
  60. --------------------------------------
  61. on testImage i
  62.   case(i>1) of
  63.     1:
  64.       zeNolabel = i - gfirstStampTrackNo + 2
  65.       go to frame label(string(zeNolabel))
  66.       
  67.     0: go "1"
  68.   end case
  69. end testImage
  70. ----------------------------------
  71.  
  72.  
  73.  
  74.